MacFormat 2000 July/macformat-092.iso/Broderbund Demo/DemoData/dialog/dPrintP.Dxr/00001.ls

Text File | 1997-08-22 | 541 b | 27 lines

global gDialogButs, gDialog

on startMovie
  set gDialogButs to new(script "buttonMan", [2, 3], ["dialogYes", "dialogNo"])
  setDownList(gDialogButs, ["dialogYesD", "dialogNoD"])
  setOverList(gDialogButs, ["dialogYesR", "dialogNoR"])
  setState(gDialogButs, 1)
end

on cleanup
  set the actorList to []
  set gDialogButs to EMPTY
  set gDialogObjName to EMPTY
end

on action theButton
  tell the stage
    hide(gDialog)
  end tell
  tell the stage
    handle(gDialog, theButton)
  end tell
  tell the stage
    closeDialog()
  end tell
end